home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / td187src.lzh / MTDIR.D < prev    next >
Text File  |  1991-06-08  |  2KB  |  64 lines
  1. DEFINITION MODULE mtDir;
  2.  
  3. FROM MagicDOS   IMPORT  PtrDTA;
  4. FROM MagicSys   IMPORT  Nil, Null,
  5.                         Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6, Bit7,
  6.                         Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14, Bit15,
  7.                         LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL, sBITSET,
  8.                         lWORD, lINTEGER, lCARDINAL, lBITSET;
  9.  
  10. TYPE    TosVersion =    (Tos10, Tos12, Tos14, Tos16, Tos30, unknown);
  11.  
  12.  
  13. PROCEDURE GetDir (VAR pfad, name: ARRAY OF CHAR; msg: ARRAY OF CHAR): BOOLEAN;
  14. (* Fileselectorbox, bei OS-Versionen >= Tos14 oder der Patzelbox wird msg in 
  15.  * die Filebox gesetzt
  16.  *)
  17.  
  18. PROCEDURE GetPath (VAR pfad: ARRAY OF CHAR);
  19. (* Ermittelt den aktuellen Pfad *)
  20.  
  21. PROCEDURE DelTail (VAR pfad: ARRAY OF CHAR);
  22. (* Löscht Suffix vom Pfad weg: Aus "C:\M2\M.PRG" wird "C:\M2\" *)
  23.  
  24. PROCEDURE SplitPath (path: ARRAY OF CHAR; VAR pfad, name, suff: ARRAY OF CHAR);
  25. (* Zerlegt Pfad in seine Bestandteile *)
  26.  
  27. PROCEDURE CompletePath (VAR pfad: ARRAY OF CHAR; standard: ARRAY OF CHAR);
  28. (* Komplettiert einen Pfad nach den MS-DOS-Regeln *)
  29.  
  30. PROCEDURE ExSelector (): BOOLEAN;
  31. (* TRUE, wenn ein extended Fileselector, zB. von Martin Patzel installiert ist
  32.  * ebenfalls TRUE, wenn TOS > 1.4 verwendet wird.
  33.  *)
  34.  
  35. PROCEDURE GetVersion (): TosVersion;
  36. (* Liefert die Version des Betriebssystems *)
  37.  
  38. PROCEDURE Exist (datei: ARRAY OF CHAR): BOOLEAN;
  39. (* TRUE wenn datei existiert *)
  40.  
  41.  
  42. PROCEDURE Replace (old, wildcard: ARRAY OF CHAR; VAR new: ARRAY OF CHAR);
  43. (* Bildet aus wildcard und old einen neuen Dateinamen (new). Beispiel:
  44.  *
  45.  *      old             wildcard        new
  46.  *
  47.  *      DATEI.TXT       *.DOC           DATEI.DOC
  48.  *      DATEI.TXT       X*.*            XATEI.TXT
  49.  *      DATEI.TXT       *.*             DATEI.TXT
  50.  *      DATEI.TXT       ?????001.*      DATEI001.TXT
  51.  *      DATEI.TXT       DATEI.BAK       DATEI.BAK
  52.  *
  53.  *)
  54.  
  55. PROCEDURE SearchParas (maske: ARRAY OF CHAR; attribut: sBITSET;
  56.                         dta: PtrDTA; firsttime: BOOLEAN);
  57. (* Stellt die Parameter ein, nach denen ein File gesucht wird *)
  58.  
  59. PROCEDURE Found (): BOOLEAN;
  60. (* TRUE, wenn eine Datei mit den Parametern aus SearchParas gefunden wurde *)
  61.  
  62. END mtDir.
  63.  
  64.